﻿Public Class Main

    
    Private Sub ThôngTinLớpHọcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinLớpHọcToolStripMenuItem.Click
        Dim frm As New frmLopHoc()
        frm.Show()
    End Sub

    Private Sub ThôngTinGiáoViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinGiáoViênToolStripMenuItem.Click
        Dim frm As New frmGiaoVien()
        frm.Show()
    End Sub

    Private Sub ThôngTinMônHọcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinMônHọcToolStripMenuItem.Click
        Dim frm As New frmChuyenMon()
        frm.Show()
    End Sub

    Private Sub ThôngTinPhòngHọcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinPhòngHọcToolStripMenuItem.Click
        Dim frm As New frmPhongHoc()
        frm.Show()
    End Sub

    Private Sub QuảnLýPhânCôngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýPhânCôngToolStripMenuItem.Click
        Dim frm As New frmPhanCong()
        frm.Show()
    End Sub

    Private Sub LậpBáoCáoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LậpBáoCáoToolStripMenuItem.Click
        Dim frm As New frmBaoCao()
        frm.Show()
    End Sub

    Private Sub HệThốngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HệThốngToolStripMenuItem.Click
        Dim frm As New frmHeThong()
        frm.Show()
    End Sub

    Private Sub ThôngTinThànhTíchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinThànhTíchToolStripMenuItem.Click
        Dim frm As New frmThanhTich()
        frm.Show()
    End Sub

    Private Sub TheoThôngTinGiáoViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheoThôngTinGiáoViênToolStripMenuItem.Click
        Dim frm As New frmTraCuuTheoGV()
        frm.Show()
    End Sub

    Private Sub TheoĐịaĐiểmDạyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheoĐịaĐiểmDạyToolStripMenuItem.Click
        Dim frm As New frmTraCuuTheoDiaDiem()
        frm.Show()
    End Sub

    Private Sub ThoátToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoátToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class
